#lang racket

(define (make-accumulator s)
    (lambda (x)
      (set! s (+ s x))
      s))

(define A (make-accumulator 5))

(A 10)

(A 10)

(A 15)

(A 20)